####### Exercicio 9 ##############
#8.1#

conversor<-function(x)
{
  
  Celcius<-5/9*(x-32)
  Fahrenheit<-x
  resulta<-data.frame(Fahrenheit, Celcius)
  return(resulta)
}
conversor(78)

#pode ter por exemplo boxplot, histograma, qq norm e y por x. A funo deve permitir a 
#entrada de dois objetos vetores de mesmo tamanho (x e y). Caso os valores de x e y 
#forem desenhados em um mesmo grfico, defina cores diferentes. 


#8.2#
#Anlise exploratria simultnea de duas variveis

library(plotrix)

explore.data<-function(x,y)
{
  x11()
  par(mfrow=c(3,2)) 
  boxplot(x,y)
  hist(x)
  hist(y)
  qqnorm(x, main="x")
  qqnorm(y, main="y")
  lm.xy<-lm(x~y)
  plot(x~y, xlab="X", ylab="Y")
  abline(lm.xy)
  X<-summary(x)
  Y<-summary(y)
  Correlacao<-cor.test(x,y)
  par(mfrow=c(1,1))
  list(X,Y,Correlacao)
  }


#8.3 Indice de diversidade de Especies

shannon<-function(abundancia)
{
  data=abundancia[!is.na(abundancia) & abundancia != 0] 
  p = data/sum(data) 
  H= -sum(p*(log(p)))
  return (H)
}

simpson<-function(abundancia)
{
  data=abundancia[!is.na(abundancia) & abundancia != 0] 
  p = data/sum(data)
  S= sum(p^2) 
  return (S)
}

diversidade<-function (mat.div, indice)
{
  if(indice== "shannon")
  {
    indice.H=apply(mat.div,2,shannon)
    return(indice.H)
  }
  if(indice== "simpson")
  {
    indice.S=apply(mat.div,2,simpson) 
    return(indice.S)
  }
}